home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / fglqbx10.zip / 04-03.BAS < prev    next >
BASIC Source File  |  1991-06-05  |  553b  |  42 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. OldMode = FGgetmode
  6. NewMode = FGautomode
  7.  
  8. IF NewMode = 0 THEN
  9.    PRINT "This program requires graphics."
  10.    STOP
  11. END IF
  12.  
  13. FGsetmode NewMode
  14. FGinitw
  15.  
  16. FGsetworld 0.0, 40.0, 0.0, 30.0
  17. CALL Redraw
  18. FGwaitkey
  19.  
  20. FGgetworld Xmin#, Xmax#, Ymin#, Ymax#
  21. FGsetworld 0.0, Xmax#*0.5, 0.0, Ymax#*0.5
  22. CALL Redraw
  23. FGwaitkey
  24.  
  25. FGsetmode OldMode
  26. FGreset
  27.  
  28. END
  29.  
  30. SUB Redraw
  31.  
  32. FGerase
  33. FGsetcolor 1
  34.  
  35. FGmovew 0.0, 0.0
  36. FGdraww 0.0, 10.0
  37. FGdraww 10.0, 10.0
  38. FGdraww 10.0, 0.0
  39. FGdraww 0.0, 0.0
  40.  
  41. END SUB
  42.